#! /usr/bin/perl -w


use strict;
use Net::Telnet;

use constant HOST => '10.74.49.183';
use constant USER => 'mgcusr';
use constant PASS => 'mgcusr';

my $telnet=Net::Telnet->new(HOST);
$telnet->login(USER,PASS);

my @lines=$telnet->cmd('ps -ef');
print @lines;
